home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 9.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar 9 13|
|00000040| 3a 30 30 3a 31 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:00:13 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 66 73 2f |s-20.3/l|isp/efs/|
|000000a0| 64 65 66 61 75 6c 74 2d | 64 69 72 2e 65 6c 0a 3b |default-|dir.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 64 65 66 61 | (erro|r "`defa|
|000001f0| 75 6c 74 2d 64 69 72 2e | 65 6c 27 20 77 61 73 20 |ult-dir.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 28 62 79 74 65 2d |t nil)).|..(byte-|
|00000260| 63 6f 64 65 20 22 c0 c1 | 21 88 c2 c3 21 88 c4 c5 |code "..|!...!...|
|00000270| 0e 06 5c 22 ab 83 c7 aa | 8f c8 0e 06 c9 ca 4f 21 |..\"....|......O!|
|00000280| cb 59 ab 83 cc aa 81 cd | 16 0e ce 0e 0f 42 16 0f |.Y......|.....B..|
|00000290| 0e 0e c7 61 ad 89 c8 0e | 06 c9 ca 4f 21 d0 59 16 |...a....|...O!.Y.|
|000002a0| 11 d1 0e 0f 42 16 0f c0 | 87 22 20 5b 70 72 6f 76 |....B...|." [prov|
|000002b0| 69 64 65 20 64 65 66 61 | 75 6c 74 2d 64 69 72 20 |ide defa|ult-dir |
|000002c0| 72 65 71 75 69 72 65 20 | 65 66 73 2d 6f 76 77 72 |require |efs-ovwr|
|000002d0| 74 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |t string|-match "|
|000002e0| 58 45 6d 61 63 73 22 20 | 65 6d 61 63 73 2d 76 65 |XEmacs" |emacs-ve|
|000002f0| 72 73 69 6f 6e 20 78 65 | 6d 61 63 73 20 73 74 72 |rsion xe|macs str|
|00000300| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 30 20 32 20 31 |ing-to-i|nt 0 2 1|
|00000310| 39 20 66 73 66 2d 31 39 | 20 66 73 66 2d 31 38 20 |9 fsf-19| fsf-18 |
|00000320| 64 65 66 61 75 6c 74 2d | 64 69 72 2d 65 6d 61 63 |default-|dir-emac|
|00000330| 73 2d 76 61 72 69 61 6e | 74 20 63 75 72 72 65 6e |s-varian|t curren|
|00000340| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 32 30 20 64 |t-load-l|ist 20 d|
|00000350| 65 66 61 75 6c 74 2d 64 | 69 72 2d 66 69 6e 64 2d |efault-d|ir-find-|
|00000360| 66 69 6c 65 2d 74 61 6b | 65 73 2d 63 6f 64 69 6e |file-tak|es-codin|
|00000370| 67 2d 73 79 73 74 65 6d | 5d 20 34 29 0a 23 40 31 |g-system|] 4).#@1|
|00000380| 39 35 20 41 20 66 75 6e | 63 74 69 6f 6e 20 74 6f |95 A fun|ction to|
|00000390| 20 63 61 6c 6c 20 74 6f | 20 63 6f 6d 70 75 74 65 | call to| compute|
|000003a0| 20 74 68 65 20 64 65 66 | 61 75 6c 74 2d 64 69 72 | the def|ault-dir|
|000003b0| 65 63 74 6f 72 79 20 66 | 6f 72 20 74 68 65 20 63 |ectory f|or the c|
|000003c0| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 2e 0a 49 |urrent b|uffer..I|
|000003d0| 66 20 74 68 69 73 20 69 | 73 20 6e 69 6c 2c 20 74 |f this i|s nil, t|
|000003e0| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 64 65 66 61 |he funct|ion defa|
|000003f0| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 20 77 69 |ult-dire|ctory wi|
|00000400| 6c 6c 20 72 65 74 75 72 | 6e 20 74 68 65 20 76 61 |ll retur|n the va|
|00000410| 6c 75 65 20 6f 66 20 74 | 68 65 0a 76 61 72 69 61 |lue of t|he.varia|
|00000420| 62 6c 65 20 64 65 66 61 | 75 6c 74 2d 64 69 72 65 |ble defa|ult-dire|
|00000430| 63 74 6f 72 79 2e 0a 42 | 75 66 66 65 72 20 6c 6f |ctory..B|uffer lo|
|00000440| 63 61 6c 2e 1f 0a 28 64 | 65 66 76 61 72 20 64 65 |cal...(d|efvar de|
|00000450| 66 61 75 6c 74 2d 64 69 | 72 65 63 74 6f 72 79 2d |fault-di|rectory-|
|00000460| 66 75 6e 63 74 69 6f 6e | 20 6e 69 6c 20 28 23 24 |function| nil (#$|
|00000470| 20 2e 20 38 39 39 29 29 | 0a 28 6d 61 6b 65 2d 76 | . 899))|.(make-v|
|00000480| 61 72 69 61 62 6c 65 2d | 62 75 66 66 65 72 2d 6c |ariable-|buffer-l|
|00000490| 6f 63 61 6c 20 27 64 65 | 66 61 75 6c 74 2d 64 69 |ocal 'de|fault-di|
|000004a0| 72 65 63 74 6f 72 79 2d | 66 75 6e 63 74 69 6f 6e |rectory-|function|
|000004b0| 29 0a 23 40 34 32 20 48 | 69 73 74 6f 72 79 20 6c |).#@42 H|istory l|
|000004c0| 69 73 74 20 6f 66 20 70 | 72 65 76 69 6f 75 73 20 |ist of p|revious |
|000004d0| 73 68 65 6c 6c 20 63 6f | 6d 6d 61 6e 64 73 2e 1f |shell co|mmands..|
|000004e0| 0a 28 64 65 66 76 61 72 | 20 73 68 65 6c 6c 2d 63 |.(defvar| shell-c|
|000004f0| 6f 6d 6d 61 6e 64 2d 68 | 69 73 74 6f 72 79 20 6e |ommand-h|istory n|
|00000500| 69 6c 20 28 23 24 20 2e | 20 31 32 30 37 29 29 0a |il (#$ .| 1207)).|
|00000510| 23 40 31 32 30 20 20 52 | 65 74 75 72 6e 73 20 74 |#@120 R|eturns t|
|00000520| 68 65 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |he defau|lt-direc|
|00000530| 74 6f 72 79 20 66 6f 72 | 20 74 68 65 20 63 75 72 |tory for| the cur|
|00000540| 72 65 6e 74 20 62 75 66 | 66 65 72 2e 0a 57 69 6c |rent buf|fer..Wil|
|00000550| 6c 20 75 73 65 20 74 68 | 65 20 76 61 72 69 61 62 |l use th|e variab|
|00000560| 6c 65 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |le defau|lt-direc|
|00000570| 74 6f 72 79 2d 66 75 6e | 63 74 69 6f 6e 20 69 66 |tory-fun|ction if|
|00000580| 20 69 74 20 6e 6f 6e 2d | 6e 69 6c 2e 1f 0a 28 64 | it non-|nil...(d|
|00000590| 65 66 61 6c 69 61 73 20 | 27 64 65 66 61 75 6c 74 |efalias |'default|
|000005a0| 2d 64 69 72 65 63 74 6f | 72 79 20 23 5b 6e 69 6c |-directo|ry #[nil|
|000005b0| 20 22 08 ab 83 08 20 87 | 09 c2 61 ab 85 c3 0c c5 | ".... .|..a.....|
|000005c0| 5c 22 87 c3 0c 21 87 22 | 20 5b 64 65 66 61 75 6c |\"...!."| [defaul|
|000005d0| 74 2d 64 69 72 65 63 74 | 6f 72 79 2d 66 75 6e 63 |t-direct|ory-func|
|000005e0| 74 69 6f 6e 20 64 65 66 | 61 75 6c 74 2d 64 69 72 |tion def|ault-dir|
|000005f0| 2d 65 6d 61 63 73 2d 76 | 61 72 69 61 6e 74 20 78 |-emacs-v|ariant x|
|00000600| 65 6d 61 63 73 20 61 62 | 62 72 65 76 69 61 74 65 |emacs ab|breviate|
|00000610| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 64 65 66 61 75 |-file-na|me defau|
|00000620| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 20 74 5d 20 |lt-direc|tory t] |
|00000630| 33 20 28 23 24 20 2e 20 | 31 33 30 32 29 5d 29 0a |3 (#$ . |1302)]).|
|00000640| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 ac |(byte-co|de "..!.|
|00000650| 85 c2 c3 21 ab a9 c4 c5 | 4d 88 c6 c7 4d 88 c8 c9 |...!....|M...M...|
|00000660| 4d 88 ca cb 21 ab 84 cc | cd 4d 88 ca ce 21 ab 84 |M...!...|.M...!..|
|00000670| cf d0 4d 88 ca d1 21 ab | da d2 d3 4d 88 aa d4 0e |..M...!.|...M....|
|00000680| 14 ab a9 c4 d5 4d 88 c6 | d6 4d 88 c8 d7 4d 88 ca |.....M..|.M...M..|
|00000690| cb 21 ab 84 cc d8 4d 88 | ca ce 21 ab 84 cf d9 4d |.!....M.|..!....M|
|000006a0| 88 ca d1 21 ab ad d2 da | 4d 88 aa a7 c4 db 4d 88 |...!....|M.....M.|
|000006b0| c6 dc 4d 88 c8 dd 4d 88 | ca cb 21 ab 84 cc de 4d |..M...M.|..!....M|
|000006c0| 88 ca ce 21 ab 84 cf df | 4d 88 ca d1 21 ab 84 d2 |...!....|M...!...|
|000006d0| e0 4d 88 e1 e2 e3 c4 23 | 88 e1 e2 e4 c6 23 88 ca |.M.....#|.....#..|
|000006e0| ce 21 ab 86 e1 e2 ce cf | 23 88 e1 e2 e5 c8 23 88 |.!......|#.....#.|
|000006f0| ca cb 21 ab 86 e1 e2 cb | cc 23 88 ca d1 21 ab 86 |..!.....|.#...!..|
|00000700| e1 e2 d1 d2 23 88 c0 87 | 22 20 5b 66 65 61 74 75 |....#...|" [featu|
|00000710| 72 65 70 20 6d 75 6c 65 | 20 62 6f 75 6e 64 70 20 |rep mule| boundp |
|00000720| 4d 55 4c 45 20 64 65 66 | 61 75 6c 74 2d 64 69 72 |MULE def|ault-dir|
|00000730| 2d 66 69 6e 64 2d 66 69 | 6c 65 20 23 5b 28 66 69 |-find-fi|le #[(fi|
|00000740| 6c 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 63 6f 64 |le &opti|onal cod|
|00000750| 69 6e 67 2d 73 79 73 74 | 65 6d 29 20 22 c0 09 5c |ing-syst|em) "..\|
|00000760| 6e 5c 22 87 22 20 5b 64 | 65 66 61 75 6c 74 2d 64 |n\"." [d|efault-d|
|00000770| 69 72 2d 72 65 61 6c 2d | 66 69 6e 64 2d 66 69 6c |ir-real-|find-fil|
|00000780| 65 20 66 69 6c 65 20 63 | 6f 64 69 6e 67 2d 73 79 |e file c|oding-sy|
|00000790| 73 74 65 6d 5d 20 33 20 | 22 44 6f 63 75 6d 65 6e |stem] 3 |"Documen|
|000007a0| 74 65 64 20 61 73 20 6f | 72 69 67 69 6e 61 6c 22 |ted as o|riginal"|
|000007b0| 20 28 6c 69 73 74 20 28 | 65 78 70 61 6e 64 2d 66 | (list (|expand-f|
|000007c0| 69 6c 65 2d 6e 61 6d 65 | 20 28 72 65 61 64 2d 66 |ile-name| (read-f|
|000007d0| 69 6c 65 2d 6e 61 6d 65 | 20 22 46 69 6e 64 20 66 |ile-name| "Find f|
|000007e0| 69 6c 65 3a 20 22 20 28 | 64 65 66 61 75 6c 74 2d |ile: " (|default-|
|000007f0| 64 69 72 65 63 74 6f 72 | 79 29 29 29 20 28 61 6e |director|y))) (an|
|00000800| 64 20 63 75 72 72 65 6e | 74 2d 70 72 65 66 69 78 |d curren|t-prefix|
|00000810| 2d 61 72 67 20 28 72 65 | 61 64 2d 63 6f 64 69 6e |-arg (re|ad-codin|
|00000820| 67 2d 73 79 73 74 65 6d | 20 22 43 6f 64 69 6e 67 |g-system| "Coding|
|00000830| 2d 73 79 73 74 65 6d 3a | 20 22 29 29 29 5d 20 64 |-system:| ")))] d|
|00000840| 65 66 61 75 6c 74 2d 64 | 69 72 2d 66 69 6e 64 2d |efault-d|ir-find-|
|00000850| 66 69 6c 65 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |file-oth|er-windo|
|00000860| 77 20 23 5b 28 66 69 6c | 65 20 26 6f 70 74 69 6f |w #[(fil|e &optio|
|00000870| 6e 61 6c 20 63 6f 64 69 | 6e 67 2d 73 79 73 74 65 |nal codi|ng-syste|
|00000880| 6d 29 20 22 c0 09 5c 6e | 5c 22 87 22 20 5b 64 65 |m) "..\n|\"." [de|
|00000890| 66 61 75 6c 74 2d 64 69 | 72 2d 72 65 61 6c 2d 66 |fault-di|r-real-f|
|000008a0| 69 6e 64 2d 66 69 6c 65 | 2d 6f 74 68 65 72 2d 77 |ind-file|-other-w|
|000008b0| 69 6e 64 6f 77 20 66 69 | 6c 65 20 63 6f 64 69 6e |indow fi|le codin|
|000008c0| 67 2d 73 79 73 74 65 6d | 5d 20 33 20 22 44 6f 63 |g-system|] 3 "Doc|
|000008d0| 75 6d 65 6e 74 65 64 20 | 61 73 20 6f 72 69 67 69 |umented |as origi|
|000008e0| 6e 61 6c 22 20 28 6c 69 | 73 74 20 28 65 78 70 61 |nal" (li|st (expa|
|000008f0| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 28 72 65 |nd-file-|name (re|
|00000900| 61 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 46 69 |ad-file-|name "Fi|
|00000910| 6e 64 20 66 69 6c 65 20 | 69 6e 20 6f 74 68 65 72 |nd file |in other|
|00000920| 20 77 69 6e 64 6f 77 3a | 20 22 20 28 64 65 66 61 | window:| " (defa|
|00000930| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 29 29 29 |ult-dire|ctory)))|
|00000940| 20 28 61 6e 64 20 63 75 | 72 72 65 6e 74 2d 70 72 | (and cu|rrent-pr|
|00000950| 65 66 69 78 2d 61 72 67 | 20 28 72 65 61 64 2d 63 |efix-arg| (read-c|
|00000960| 6f 64 69 6e 67 2d 73 79 | 73 74 65 6d 20 22 43 6f |oding-sy|stem "Co|
|00000970| 64 69 6e 67 2d 73 79 73 | 74 65 6d 3a 20 22 29 29 |ding-sys|tem: "))|
|00000980| 29 5d 20 64 65 66 61 75 | 6c 74 2d 64 69 72 2d 66 |)] defau|lt-dir-f|
|00000990| 69 6e 64 2d 66 69 6c 65 | 2d 72 65 61 64 2d 6f 6e |ind-file|-read-on|
|000009a0| 6c 79 20 23 5b 28 66 69 | 6c 65 20 26 6f 70 74 69 |ly #[(fi|le &opti|
|000009b0| 6f 6e 61 6c 20 63 6f 64 | 69 6e 67 2d 73 79 73 74 |onal cod|ing-syst|
|000009c0| 65 6d 29 20 22 c0 09 5c | 6e 5c 22 87 22 20 5b 64 |em) "..\|n\"." [d|
|000009d0| 65 66 61 75 6c 74 2d 64 | 69 72 2d 72 65 61 6c 2d |efault-d|ir-real-|
|000009e0| 66 69 6e 64 2d 66 69 6c | 65 2d 72 65 61 64 2d 6f |find-fil|e-read-o|
|000009f0| 6e 6c 79 20 66 69 6c 65 | 20 63 6f 64 69 6e 67 2d |nly file| coding-|
|00000a00| 73 79 73 74 65 6d 5d 20 | 33 20 22 44 6f 63 75 6d |system] |3 "Docum|
|00000a10| 65 6e 74 65 64 20 61 73 | 20 6f 72 69 67 69 6e 61 |ented as| origina|
|00000a20| 6c 22 20 28 6c 69 73 74 | 20 28 65 78 70 61 6e 64 |l" (list| (expand|
|00000a30| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 28 72 65 61 64 |-file-na|me (read|
|00000a40| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 46 69 6e 64 |-file-na|me "Find|
|00000a50| 20 66 69 6c 65 20 72 65 | 61 64 2d 6f 6e 6c 79 3a | file re|ad-only:|
|00000a60| 20 22 20 28 64 65 66 61 | 75 6c 74 2d 64 69 72 65 | " (defa|ult-dire|
|00000a70| 63 74 6f 72 79 29 20 6e | 69 6c 20 74 29 29 20 28 |ctory) n|il t)) (|
|00000a80| 61 6e 64 20 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |and curr|ent-pref|
|00000a90| 69 78 2d 61 72 67 20 28 | 72 65 61 64 2d 63 6f 64 |ix-arg (|read-cod|
|00000aa0| 69 6e 67 2d 73 79 73 74 | 65 6d 20 22 43 6f 64 69 |ing-syst|em "Codi|
|00000ab0| 6e 67 2d 73 79 73 74 65 | 6d 3a 20 22 29 29 29 5d |ng-syste|m: ")))]|
|00000ac0| 20 66 62 6f 75 6e 64 70 | 20 66 69 6e 64 2d 66 69 | fboundp| find-fi|
|00000ad0| 6c 65 2d 72 65 61 64 2d | 6f 6e 6c 79 2d 6f 74 68 |le-read-|only-oth|
|00000ae0| 65 72 2d 77 69 6e 64 6f | 77 20 64 65 66 61 75 6c |er-windo|w defaul|
|00000af0| 74 2d 64 69 72 2d 66 69 | 6e 64 2d 66 69 6c 65 2d |t-dir-fi|nd-file-|
|00000b00| 72 65 61 64 2d 6f 6e 6c | 79 2d 6f 74 68 65 72 2d |read-onl|y-other-|
|00000b10| 77 69 6e 64 6f 77 20 23 | 5b 28 66 69 6c 65 20 26 |window #|[(file &|
|00000b20| 6f 70 74 69 6f 6e 61 6c | 20 63 6f 64 69 6e 67 2d |optional| coding-|
|00000b30| 73 79 73 74 65 6d 29 20 | 22 c0 09 5c 6e 5c 22 87 |system) |"..\n\".|
|00000b40| 22 20 5b 64 65 66 61 75 | 6c 74 2d 64 69 72 2d 72 |" [defau|lt-dir-r|
|00000b50| 65 61 6c 2d 66 69 6e 64 | 2d 66 69 6c 65 2d 72 65 |eal-find|-file-re|
|00000b60| 61 64 2d 6f 6e 6c 79 2d | 6f 74 68 65 72 2d 77 69 |ad-only-|other-wi|
|00000b70| 6e 64 6f 77 20 66 69 6c | 65 20 63 6f 64 69 6e 67 |ndow fil|e coding|
|00000b80| 2d 73 79 73 74 65 6d 5d | 20 33 20 22 44 6f 63 75 |-system]| 3 "Docu|
|00000b90| 6d 65 6e 74 65 64 20 61 | 73 20 6f 72 69 67 69 6e |mented a|s origin|
|00000ba0| 61 6c 22 20 28 6c 69 73 | 74 20 28 65 78 70 61 6e |al" (lis|t (expan|
|00000bb0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 28 72 65 61 |d-file-n|ame (rea|
|00000bc0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 46 69 6e |d-file-n|ame "Fin|
|00000bd0| 64 20 66 69 6c 65 20 72 | 65 61 64 2d 6f 6e 6c 79 |d file r|ead-only|
|00000be0| 20 69 6e 20 6f 74 68 65 | 72 20 77 69 6e 64 6f 77 | in othe|r window|
|00000bf0| 3a 20 22 20 28 64 65 66 | 61 75 6c 74 2d 64 69 72 |: " (def|ault-dir|
|00000c00| 65 63 74 6f 72 79 29 20 | 6e 69 6c 20 74 29 29 20 |ectory) |nil t)) |
|00000c10| 28 61 6e 64 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |(and cur|rent-pre|
|00000c20| 66 69 78 2d 61 72 67 20 | 28 72 65 61 64 2d 63 6f |fix-arg |(read-co|
|00000c30| 64 69 6e 67 2d 73 79 73 | 74 65 6d 20 22 43 6f 64 |ding-sys|tem "Cod|
|00000c40| 69 6e 67 2d 73 79 73 74 | 65 6d 3a 20 22 29 29 29 |ing-syst|em: ")))|
|00000c50| 5d 20 66 69 6e 64 2d 66 | 69 6c 65 2d 6f 74 68 65 |] find-f|ile-othe|
|00000c60| 72 2d 66 72 61 6d 65 20 | 64 65 66 61 75 6c 74 2d |r-frame |default-|
|00000c70| 64 69 72 2d 66 69 6e 64 | 2d 66 69 6c 65 2d 6f 74 |dir-find|-file-ot|
|00000c80| 68 65 72 2d 66 72 61 6d | 65 20 23 5b 28 66 69 6c |her-fram|e #[(fil|
|00000c90| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 63 6f 64 69 |e &optio|nal codi|
|00000ca0| 6e 67 2d 73 79 73 74 65 | 6d 29 20 22 c0 09 5c 6e |ng-syste|m) "..\n|
|00000cb0| 5c 22 87 22 20 5b 64 65 | 66 61 75 6c 74 2d 64 69 |\"." [de|fault-di|
|00000cc0| 72 2d 72 65 61 6c 2d 66 | 69 6e 64 2d 66 69 6c 65 |r-real-f|ind-file|
|00000cd0| 2d 6f 74 68 65 72 2d 66 | 72 61 6d 65 20 66 69 6c |-other-f|rame fil|
|00000ce0| 65 20 63 6f 64 69 6e 67 | 2d 73 79 73 74 65 6d 5d |e coding|-system]|
|00000cf0| 20 33 20 22 44 6f 63 75 | 6d 65 6e 74 65 64 20 61 | 3 "Docu|mented a|
|00000d00| 73 20 6f 72 69 67 69 6e | 61 6c 22 20 28 6c 69 73 |s origin|al" (lis|
|00000d10| 74 20 28 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |t (expan|d-file-n|
|00000d20| 61 6d 65 20 28 72 65 61 | 64 2d 66 69 6c 65 2d 6e |ame (rea|d-file-n|
|00000d30| 61 6d 65 20 22 46 69 6e | 64 20 66 69 6c 65 20 69 |ame "Fin|d file i|
|00000d40| 6e 20 6f 74 68 65 72 20 | 66 72 61 6d 65 3a 20 22 |n other |frame: "|
|00000d50| 20 28 64 65 66 61 75 6c | 74 2d 64 69 72 65 63 74 | (defaul|t-direct|
|00000d60| 6f 72 79 29 29 29 20 28 | 61 6e 64 20 63 75 72 72 |ory))) (|and curr|
|00000d70| 65 6e 74 2d 70 72 65 66 | 69 78 2d 61 72 67 20 28 |ent-pref|ix-arg (|
|00000d80| 72 65 61 64 2d 63 6f 64 | 69 6e 67 2d 73 79 73 74 |read-cod|ing-syst|
|00000d90| 65 6d 20 22 43 6f 64 69 | 6e 67 2d 73 79 73 74 65 |em "Codi|ng-syste|
|00000da0| 6d 3a 20 22 29 29 29 5d | 20 66 69 6e 64 2d 66 69 |m: ")))]| find-fi|
|00000db0| 6c 65 2d 72 65 61 64 2d | 6f 6e 6c 79 2d 6f 74 68 |le-read-|only-oth|
|00000dc0| 65 72 2d 66 72 61 6d 65 | 20 64 65 66 61 75 6c 74 |er-frame| default|
|00000dd0| 2d 64 69 72 2d 66 69 6e | 64 2d 66 69 6c 65 2d 72 |-dir-fin|d-file-r|
|00000de0| 65 61 64 2d 6f 6e 6c 79 | 2d 6f 74 68 65 72 2d 66 |ead-only|-other-f|
|00000df0| 72 61 6d 65 20 23 5b 28 | 66 69 6c 65 20 26 6f 70 |rame #[(|file &op|
|00000e00| 74 69 6f 6e 61 6c 20 63 | 6f 64 69 6e 67 2d 73 79 |tional c|oding-sy|
|00000e10| 73 74 65 6d 29 20 22 c0 | 09 5c 6e 5c 22 87 22 20 |stem) ".|.\n\"." |
|00000e20| 5b 64 65 66 61 75 6c 74 | 2d 64 69 72 2d 72 65 61 |[default|-dir-rea|
|00000e30| 6c 2d 66 69 6e 64 2d 66 | 69 6c 65 2d 72 65 61 64 |l-find-f|ile-read|
|00000e40| 2d 6f 6e 6c 79 2d 6f 74 | 68 65 72 2d 66 72 61 6d |-only-ot|her-fram|
|00000e50| 65 20 66 69 6c 65 20 63 | 6f 64 69 6e 67 2d 73 79 |e file c|oding-sy|
|00000e60| 73 74 65 6d 5d 20 33 20 | 22 44 6f 63 75 6d 65 6e |stem] 3 |"Documen|
|00000e70| 74 65 64 20 61 73 20 6f | 72 69 67 69 6e 61 6c 22 |ted as o|riginal"|
|00000e80| 20 28 6c 69 73 74 20 28 | 65 78 70 61 6e 64 2d 66 | (list (|expand-f|
|00000e90| 69 6c 65 2d 6e 61 6d 65 | 20 28 72 65 61 64 2d 66 |ile-name| (read-f|
|00000ea0| 69 6c 65 2d 6e 61 6d 65 | 20 22 46 69 6e 64 20 66 |ile-name| "Find f|
|00000eb0| 69 6c 65 20 72 65 61 64 | 2d 6f 6e 6c 79 20 69 6e |ile read|-only in|
|00000ec0| 20 6f 74 68 65 72 20 66 | 72 61 6d 65 3a 20 22 20 | other f|rame: " |
|00000ed0| 28 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f |(default|-directo|
|00000ee0| 72 79 29 20 6e 69 6c 20 | 74 29 29 20 28 61 6e 64 |ry) nil |t)) (and|
|00000ef0| 20 63 75 72 72 65 6e 74 | 2d 70 72 65 66 69 78 2d | current|-prefix-|
|00000f00| 61 72 67 20 28 72 65 61 | 64 2d 63 6f 64 69 6e 67 |arg (rea|d-coding|
|00000f10| 2d 73 79 73 74 65 6d 20 | 22 43 6f 64 69 6e 67 2d |-system |"Coding-|
|00000f20| 73 79 73 74 65 6d 3a 20 | 22 29 29 29 5d 20 64 65 |system: |")))] de|
|00000f30| 66 61 75 6c 74 2d 64 69 | 72 2d 66 69 6e 64 2d 66 |fault-di|r-find-f|
|00000f40| 69 6c 65 2d 74 61 6b 65 | 73 2d 63 6f 64 69 6e 67 |ile-take|s-coding|
|00000f50| 2d 73 79 73 74 65 6d 20 | 23 5b 28 66 69 6c 65 20 |-system |#[(file |
|00000f60| 26 6f 70 74 69 6f 6e 61 | 6c 20 63 6f 64 69 6e 67 |&optiona|l coding|
|00000f70| 2d 73 79 73 74 65 6d 29 | 20 22 c0 09 21 87 22 20 |-system)| "..!." |
|00000f80| 5b 64 65 66 61 75 6c 74 | 2d 64 69 72 2d 72 65 61 |[default|-dir-rea|
|00000f90| 6c 2d 66 69 6e 64 2d 66 | 69 6c 65 20 66 69 6c 65 |l-find-f|ile file|
|00000fa0| 5d 20 32 20 22 44 6f 63 | 75 6d 65 6e 74 65 64 20 |] 2 "Doc|umented |
|00000fb0| 61 73 20 6f 72 69 67 69 | 6e 61 6c 22 20 28 6c 69 |as origi|nal" (li|
|00000fc0| 73 74 20 28 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |st (expa|nd-file-|
|00000fd0| 6e 61 6d 65 20 28 72 65 | 61 64 2d 66 69 6c 65 2d |name (re|ad-file-|
|00000fe0| 6e 61 6d 65 20 22 46 69 | 6e 64 20 66 69 6c 65 3a |name "Fi|nd file:|
|00000ff0| 20 22 20 28 64 65 66 61 | 75 6c 74 2d 64 69 72 65 | " (defa|ult-dire|
|00001000| 63 74 6f 72 79 29 29 29 | 29 5d 20 23 5b 28 66 69 |ctory)))|)] #[(fi|
|00001010| 6c 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 63 6f 64 |le &opti|onal cod|
|00001020| 69 6e 67 2d 73 79 73 74 | 65 6d 29 20 22 c0 09 21 |ing-syst|em) "..!|
|00001030| 87 22 20 5b 64 65 66 61 | 75 6c 74 2d 64 69 72 2d |." [defa|ult-dir-|
|00001040| 72 65 61 6c 2d 66 69 6e | 64 2d 66 69 6c 65 2d 6f |real-fin|d-file-o|
|00001050| 74 68 65 72 2d 77 69 6e | 64 6f 77 20 66 69 6c 65 |ther-win|dow file|
|00001060| 5d 20 32 20 22 44 6f 63 | 75 6d 65 6e 74 65 64 20 |] 2 "Doc|umented |
|00001070| 61 73 20 6f 72 69 67 69 | 6e 61 6c 22 20 28 6c 69 |as origi|nal" (li|
|00001080| 73 74 20 28 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |st (expa|nd-file-|
|00001090| 6e 61 6d 65 20 28 72 65 | 61 64 2d 66 69 6c 65 2d |name (re|ad-file-|
|000010a0| 6e 61 6d 65 20 22 46 69 | 6e 64 20 66 69 6c 65 20 |name "Fi|nd file |
|000010b0| 69 6e 20 6f 74 68 65 72 | 20 77 69 6e 64 6f 77 3a |in other| window:|
|000010c0| 20 22 20 28 64 65 66 61 | 75 6c 74 2d 64 69 72 65 | " (defa|ult-dire|
|000010d0| 63 74 6f 72 79 29 29 29 | 29 5d 20 23 5b 28 66 69 |ctory)))|)] #[(fi|
|000010e0| 6c 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 63 6f 64 |le &opti|onal cod|
|000010f0| 69 6e 67 2d 73 79 73 74 | 65 6d 29 20 22 c0 09 21 |ing-syst|em) "..!|
|00001100| 87 22 20 5b 64 65 66 61 | 75 6c 74 2d 64 69 72 2d |." [defa|ult-dir-|
|00001110| 72 65 61 6c 2d 66 69 6e | 64 2d 66 69 6c 65 2d 72 |real-fin|d-file-r|
|00001120| 65 61 64 2d 6f 6e 6c 79 | 20 66 69 6c 65 5d 20 32 |ead-only| file] 2|
|00001130| 20 22 44 6f 63 75 6d 65 | 6e 74 65 64 20 61 73 20 | "Docume|nted as |
|00001140| 6f 72 69 67 69 6e 61 6c | 22 20 28 6c 69 73 74 20 |original|" (list |
|00001150| 28 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d |(expand-|file-nam|
|00001160| 65 20 28 72 65 61 64 2d | 66 69 6c 65 2d 6e 61 6d |e (read-|file-nam|
|00001170| 65 20 22 46 69 6e 64 20 | 66 69 6c 65 20 72 65 61 |e "Find |file rea|
|00001180| 64 2d 6f 6e 6c 79 3a 20 | 22 20 28 64 65 66 61 75 |d-only: |" (defau|
|00001190| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 29 20 6e 69 |lt-direc|tory) ni|
|000011a0| 6c 20 74 29 29 29 5d 20 | 23 5b 28 66 69 6c 65 20 |l t)))] |#[(file |
|000011b0| 26 6f 70 74 69 6f 6e 61 | 6c 20 63 6f 64 69 6e 67 |&optiona|l coding|
|000011c0| 2d 73 79 73 74 65 6d 29 | 20 22 c0 09 21 87 22 20 |-system)| "..!." |
|000011d0| 5b 64 65 66 61 75 6c 74 | 2d 64 69 72 2d 72 65 61 |[default|-dir-rea|
|000011e0| 6c 2d 66 69 6e 64 2d 66 | 69 6c 65 2d 72 65 61 64 |l-find-f|ile-read|
|000011f0| 2d 6f 6e 6c 79 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |-only-ot|her-wind|
|00001200| 6f 77 20 66 69 6c 65 5d | 20 32 20 22 44 6f 63 75 |ow file]| 2 "Docu|
|00001210| 6d 65 6e 74 65 64 20 61 | 73 20 6f 72 69 67 69 6e |mented a|s origin|
|00001220| 61 6c 22 20 28 6c 69 73 | 74 20 28 65 78 70 61 6e |al" (lis|t (expan|
|00001230| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 28 72 65 61 |d-file-n|ame (rea|
|00001240| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 46 69 6e |d-file-n|ame "Fin|
|00001250| 64 20 66 69 6c 65 20 72 | 65 61 64 2d 6f 6e 6c 79 |d file r|ead-only|
|00001260| 20 69 6e 20 6f 74 68 65 | 72 20 77 69 6e 64 6f 77 | in othe|r window|
|00001270| 3a 20 22 20 28 64 65 66 | 61 75 6c 74 2d 64 69 72 |: " (def|ault-dir|
|00001280| 65 63 74 6f 72 79 29 20 | 6e 69 6c 20 74 29 29 29 |ectory) |nil t)))|
|00001290| 5d 20 23 5b 28 66 69 6c | 65 20 26 6f 70 74 69 6f |] #[(fil|e &optio|
|000012a0| 6e 61 6c 20 63 6f 64 69 | 6e 67 2d 73 79 73 74 65 |nal codi|ng-syste|
|000012b0| 6d 29 20 22 c0 09 21 87 | 22 20 5b 64 65 66 61 75 |m) "..!.|" [defau|
|000012c0| 6c 74 2d 64 69 72 2d 72 | 65 61 6c 2d 66 69 6e 64 |lt-dir-r|eal-find|
|000012d0| 2d 66 69 6c 65 2d 6f 74 | 68 65 72 2d 66 72 61 6d |-file-ot|her-fram|
|000012e0| 65 20 66 69 6c 65 5d 20 | 32 20 22 44 6f 63 75 6d |e file] |2 "Docum|
|000012f0| 65 6e 74 65 64 20 61 73 | 20 6f 72 69 67 69 6e 61 |ented as| origina|
|00001300| 6c 22 20 28 6c 69 73 74 | 20 28 65 78 70 61 6e 64 |l" (list| (expand|
|00001310| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 28 72 65 61 64 |-file-na|me (read|
|00001320| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 46 69 6e 64 |-file-na|me "Find|
|00001330| 20 66 69 6c 65 20 69 6e | 20 6f 74 68 65 72 20 66 | file in| other f|
|00001340| 72 61 6d 65 3a 20 22 20 | 28 64 65 66 61 75 6c 74 |rame: " |(default|
|00001350| 2d 64 69 72 65 63 74 6f | 72 79 29 29 29 29 5d 20 |-directo|ry))))] |
|00001360| 23 5b 28 66 69 6c 65 20 | 26 6f 70 74 69 6f 6e 61 |#[(file |&optiona|
|00001370| 6c 20 63 6f 64 69 6e 67 | 2d 73 79 73 74 65 6d 29 |l coding|-system)|
|00001380| 20 22 c0 09 21 87 22 20 | 5b 64 65 66 61 75 6c 74 | "..!." |[default|
|00001390| 2d 64 69 72 2d 72 65 61 | 6c 2d 66 69 6e 64 2d 66 |-dir-rea|l-find-f|
|000013a0| 69 6c 65 2d 72 65 61 64 | 2d 6f 6e 6c 79 2d 6f 74 |ile-read|-only-ot|
|000013b0| 68 65 72 2d 66 72 61 6d | 65 20 66 69 6c 65 5d 20 |her-fram|e file] |
|000013c0| 32 20 22 44 6f 63 75 6d | 65 6e 74 65 64 20 61 73 |2 "Docum|ented as|
|000013d0| 20 6f 72 69 67 69 6e 61 | 6c 22 20 28 6c 69 73 74 | origina|l" (list|
|000013e0| 20 28 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 | (expand|-file-na|
|000013f0| 6d 65 20 28 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |me (read|-file-na|
|00001400| 6d 65 20 22 46 69 6e 64 | 20 66 69 6c 65 20 72 65 |me "Find| file re|
|00001410| 61 64 2d 6f 6e 6c 79 20 | 69 6e 20 6f 74 68 65 72 |ad-only |in other|
|00001420| 20 66 72 61 6d 65 3a 20 | 22 20 28 64 65 66 61 75 | frame: |" (defau|
|00001430| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 29 20 6e 69 |lt-direc|tory) ni|
|00001440| 6c 20 74 29 29 29 5d 20 | 23 5b 28 66 69 6c 65 29 |l t)))] |#[(file)|
|00001450| 20 22 c0 09 21 87 22 20 | 5b 64 65 66 61 75 6c 74 | "..!." |[default|
|00001460| 2d 64 69 72 2d 72 65 61 | 6c 2d 66 69 6e 64 2d 66 |-dir-rea|l-find-f|
|00001470| 69 6c 65 20 66 69 6c 65 | 5d 20 32 20 22 44 6f 63 |ile file|] 2 "Doc|
|00001480| 75 6d 65 6e 74 65 64 20 | 61 73 20 6f 72 69 67 69 |umented |as origi|
|00001490| 6e 61 6c 22 20 28 6c 69 | 73 74 20 28 65 78 70 61 |nal" (li|st (expa|
|000014a0| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 28 72 65 |nd-file-|name (re|
|000014b0| 61 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 46 69 |ad-file-|name "Fi|
|000014c0| 6e 64 20 66 69 6c 65 3a | 20 22 20 28 64 65 66 61 |nd file:| " (defa|
|000014d0| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 29 29 29 |ult-dire|ctory)))|
|000014e0| 29 5d 20 23 5b 28 66 69 | 6c 65 29 20 22 c0 09 21 |)] #[(fi|le) "..!|
|000014f0| 87 22 20 5b 64 65 66 61 | 75 6c 74 2d 64 69 72 2d |." [defa|ult-dir-|
|00001500| 72 65 61 6c 2d 66 69 6e | 64 2d 66 69 6c 65 2d 6f |real-fin|d-file-o|
|00001510| 74 68 65 72 2d 77 69 6e | 64 6f 77 20 66 69 6c 65 |ther-win|dow file|
|00001520| 5d 20 32 20 22 44 6f 63 | 75 6d 65 6e 74 65 64 20 |] 2 "Doc|umented |
|00001530| 61 73 20 6f 72 69 67 69 | 6e 61 6c 22 20 28 6c 69 |as origi|nal" (li|
|00001540| 73 74 20 28 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |st (expa|nd-file-|
|00001550| 6e 61 6d 65 20 28 72 65 | 61 64 2d 66 69 6c 65 2d |name (re|ad-file-|
|00001560| 6e 61 6d 65 20 22 46 69 | 6e 64 20 66 69 6c 65 20 |name "Fi|nd file |
|00001570| 69 6e 20 6f 74 68 65 72 | 20 77 69 6e 64 6f 77 3a |in other| window:|
|00001580| 20 22 20 28 64 65 66 61 | 75 6c 74 2d 64 69 72 65 | " (defa|ult-dire|
|00001590| 63 74 6f 72 79 29 29 29 | 29 5d 20 23 5b 28 66 69 |ctory)))|)] #[(fi|
|000015a0| 6c 65 29 20 22 c0 09 21 | 87 22 20 5b 64 65 66 61 |le) "..!|." [defa|
|000015b0| 75 6c 74 2d 64 69 72 2d | 72 65 61 6c 2d 66 69 6e |ult-dir-|real-fin|
|000015c0| 64 2d 66 69 6c 65 2d 72 | 65 61 64 2d 6f 6e 6c 79 |d-file-r|ead-only|
|000015d0| 20 66 69 6c 65 5d 20 32 | 20 22 44 6f 63 75 6d 65 | file] 2| "Docume|
|000015e0| 6e 74 65 64 20 61 73 20 | 6f 72 69 67 69 6e 61 6c |nted as |original|
|000015f0| 22 20 28 6c 69 73 74 20 | 28 65 78 70 61 6e 64 2d |" (list |(expand-|
|00001600| 66 69 6c 65 2d 6e 61 6d | 65 20 28 72 65 61 64 2d |file-nam|e (read-|
|00001610| 66 69 6c 65 2d 6e 61 6d | 65 20 22 46 69 6e 64 20 |file-nam|e "Find |
|00001620| 66 69 6c 65 20 72 65 61 | 64 2d 6f 6e 6c 79 3a 20 |file rea|d-only: |
|00001630| 22 20 28 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |" (defau|lt-direc|
|00001640| 74 6f 72 79 29 20 6e 69 | 6c 20 74 29 29 29 5d 20 |tory) ni|l t)))] |
|00001650| 23 5b 28 66 69 6c 65 29 | 20 22 c0 09 21 87 22 20 |#[(file)| "..!." |
|00001660| 5b 64 65 66 61 75 6c 74 | 2d 64 69 72 2d 72 65 61 |[default|-dir-rea|
|00001670| 6c 2d 66 69 6e 64 2d 66 | 69 6c 65 2d 72 65 61 64 |l-find-f|ile-read|
|00001680| 2d 6f 6e 6c 79 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |-only-ot|her-wind|
|00001690| 6f 77 20 66 69 6c 65 5d | 20 32 20 22 44 6f 63 75 |ow file]| 2 "Docu|
|000016a0| 6d 65 6e 74 65 64 20 61 | 73 20 6f 72 69 67 69 6e |mented a|s origin|
|000016b0| 61 6c 22 20 28 6c 69 73 | 74 20 28 65 78 70 61 6e |al" (lis|t (expan|
|000016c0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 28 72 65 61 |d-file-n|ame (rea|
|000016d0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 46 69 6e |d-file-n|ame "Fin|
|000016e0| 64 20 66 69 6c 65 20 72 | 65 61 64 2d 6f 6e 6c 79 |d file r|ead-only|
|000016f0| 20 69 6e 20 6f 74 68 65 | 72 20 77 69 6e 64 6f 77 | in othe|r window|
|00001700| 3a 20 22 20 28 64 65 66 | 61 75 6c 74 2d 64 69 72 |: " (def|ault-dir|
|00001710| 65 63 74 6f 72 79 29 20 | 6e 69 6c 20 74 29 29 29 |ectory) |nil t)))|
|00001720| 5d 20 23 5b 28 66 69 6c | 65 29 20 22 c0 09 21 87 |] #[(fil|e) "..!.|
|00001730| 22 20 5b 64 65 66 61 75 | 6c 74 2d 64 69 72 2d 72 |" [defau|lt-dir-r|
|00001740| 65 61 6c 2d 66 69 6e 64 | 2d 66 69 6c 65 2d 6f 74 |eal-find|-file-ot|
|00001750| 68 65 72 2d 66 72 61 6d | 65 20 66 69 6c 65 5d 20 |her-fram|e file] |
|00001760| 32 20 22 44 6f 63 75 6d | 65 6e 74 65 64 20 61 73 |2 "Docum|ented as|
|00001770| 20 6f 72 69 67 69 6e 61 | 6c 22 20 28 6c 69 73 74 | origina|l" (list|
|00001780| 20 28 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 | (expand|-file-na|
|00001790| 6d 65 20 28 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |me (read|-file-na|
|000017a0| 6d 65 20 22 46 69 6e 64 | 20 66 69 6c 65 20 69 6e |me "Find| file in|
|000017b0| 20 6f 74 68 65 72 20 66 | 72 61 6d 65 3a 20 22 20 | other f|rame: " |
|000017c0| 28 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f |(default|-directo|
|000017d0| 72 79 29 29 29 29 5d 20 | 23 5b 28 66 69 6c 65 29 |ry))))] |#[(file)|
|000017e0| 20 22 c0 09 21 87 22 20 | 5b 64 65 66 61 75 6c 74 | "..!." |[default|
|000017f0| 2d 64 69 72 2d 72 65 61 | 6c 2d 66 69 6e 64 2d 66 |-dir-rea|l-find-f|
|00001800| 69 6c 65 2d 72 65 61 64 | 2d 6f 6e 6c 79 2d 6f 74 |ile-read|-only-ot|
|00001810| 68 65 72 2d 66 72 61 6d | 65 20 66 69 6c 65 5d 20 |her-fram|e file] |
|00001820| 32 20 22 44 6f 63 75 6d | 65 6e 74 65 64 20 61 73 |2 "Docum|ented as|
|00001830| 20 6f 72 69 67 69 6e 61 | 6c 22 20 28 6c 69 73 74 | origina|l" (list|
|00001840| 20 28 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 | (expand|-file-na|
|00001850| 6d 65 20 28 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |me (read|-file-na|
|00001860| 6d 65 20 22 46 69 6e 64 | 20 66 69 6c 65 20 72 65 |me "Find| file re|
|00001870| 61 64 2d 6f 6e 6c 79 20 | 69 6e 20 6f 74 68 65 72 |ad-only |in other|
|00001880| 20 66 72 61 6d 65 3a 20 | 22 20 28 64 65 66 61 75 | frame: |" (defau|
|00001890| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 29 20 6e 69 |lt-direc|tory) ni|
|000018a0| 6c 20 74 29 29 29 5d 20 | 65 66 73 2d 6f 76 65 72 |l t)))] |efs-over|
|000018b0| 77 72 69 74 65 2d 66 6e | 20 22 64 65 66 61 75 6c |write-fn| "defaul|
|000018c0| 74 2d 64 69 72 22 20 66 | 69 6e 64 2d 66 69 6c 65 |t-dir" f|ind-file|
|000018d0| 20 66 69 6e 64 2d 66 69 | 6c 65 2d 6f 74 68 65 72 | find-fi|le-other|
|000018e0| 2d 77 69 6e 64 6f 77 20 | 66 69 6e 64 2d 66 69 6c |-window |find-fil|
|000018f0| 65 2d 72 65 61 64 2d 6f | 6e 6c 79 5d 20 34 29 0a |e-read-o|nly] 4).|
|00001900| 23 40 32 34 20 44 6f 63 | 75 6d 65 6e 74 65 64 20 |#@24 Doc|umented |
|00001910| 61 73 20 6f 72 69 67 69 | 6e 61 6c 1f 0a 28 64 65 |as origi|nal..(de|
|00001920| 66 61 6c 69 61 73 20 27 | 64 65 66 61 75 6c 74 2d |falias '|default-|
|00001930| 64 69 72 2d 6c 6f 61 64 | 2d 66 69 6c 65 20 23 5b |dir-load|-file #[|
|00001940| 28 66 69 6c 65 29 20 22 | c0 09 21 87 22 20 5b 64 |(file) "|..!." [d|
|00001950| 65 66 61 75 6c 74 2d 64 | 69 72 2d 72 65 61 6c 2d |efault-d|ir-real-|
|00001960| 6c 6f 61 64 2d 66 69 6c | 65 20 66 69 6c 65 5d 20 |load-fil|e file] |
|00001970| 32 20 28 23 24 20 2e 20 | 36 34 30 35 29 20 28 6c |2 (#$ . |6405) (l|
|00001980| 69 73 74 20 28 65 78 70 | 61 6e 64 2d 66 69 6c 65 |ist (exp|and-file|
|00001990| 2d 6e 61 6d 65 20 28 72 | 65 61 64 2d 66 69 6c 65 |-name (r|ead-file|
|000019a0| 2d 6e 61 6d 65 20 22 4c | 6f 61 64 20 66 69 6c 65 |-name "L|oad file|
|000019b0| 3a 20 22 20 28 64 65 66 | 61 75 6c 74 2d 64 69 72 |: " (def|ault-dir|
|000019c0| 65 63 74 6f 72 79 29 20 | 6e 69 6c 20 74 29 29 29 |ectory) |nil t)))|
|000019d0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|000019e0| c1 c2 c3 23 88 c4 c5 c6 | 8f 87 22 20 5b 65 66 73 |...#....|.." [efs|
|000019f0| 2d 6f 76 65 72 77 72 69 | 74 65 2d 66 6e 20 22 64 |-overwri|te-fn "d|
|00001a00| 65 66 61 75 6c 74 2d 64 | 69 72 22 20 6c 6f 61 64 |efault-d|ir" load|
|00001a10| 2d 66 69 6c 65 20 64 65 | 66 61 75 6c 74 2d 64 69 |-file de|fault-di|
|00001a20| 72 2d 6c 6f 61 64 2d 66 | 69 6c 65 20 6e 69 6c 20 |r-load-f|ile nil |
|00001a30| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 87 |(byte-co|de "..!.|
|00001a40| 22 20 5b 72 65 71 75 69 | 72 65 20 76 69 65 77 2d |" [requi|re view-|
|00001a50| 6c 65 73 73 5d 20 32 29 | 20 28 28 65 72 72 6f 72 |less] 2)| ((error|
|00001a60| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 | (byte-c|ode "..!|
|00001a70| 87 22 20 5b 72 65 71 75 | 69 72 65 20 76 69 65 77 |." [requ|ire view|
|00001a80| 5d 20 32 29 29 29 5d 20 | 34 29 0a 23 40 32 34 20 |] 2)))] |4).#@24 |
|00001a90| 44 6f 63 75 6d 65 6e 74 | 65 64 20 61 73 20 6f 72 |Document|ed as or|
|00001aa0| 69 67 69 6e 61 6c 1f 0a | 28 64 65 66 61 6c 69 61 |iginal..|(defalia|
|00001ab0| 73 20 27 64 65 66 61 75 | 6c 74 2d 64 69 72 2d 76 |s 'defau|lt-dir-v|
|00001ac0| 69 65 77 2d 66 69 6c 65 | 20 23 5b 28 66 69 6c 65 |iew-file| #[(file|
|00001ad0| 29 20 22 c0 09 21 87 22 | 20 5b 64 65 66 61 75 6c |) "..!."| [defaul|
|00001ae0| 74 2d 64 69 72 2d 72 65 | 61 6c 2d 76 69 65 77 2d |t-dir-re|al-view-|
|00001af0| 66 69 6c 65 20 66 69 6c | 65 5d 20 32 20 28 23 24 |file fil|e] 2 (#$|
|00001b00| 20 2e 20 36 38 30 30 29 | 20 28 6c 69 73 74 20 28 | . 6800)| (list (|
|00001b10| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00001b20| 20 28 72 65 61 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 | (read-f|ile-name|
|00001b30| 20 22 56 69 65 77 20 66 | 69 6c 65 3a 20 22 20 28 | "View f|ile: " (|
|00001b40| 64 65 66 61 75 6c 74 2d | 64 69 72 65 63 74 6f 72 |default-|director|
|00001b50| 79 29 20 6e 69 6c 20 74 | 29 29 29 5d 29 0a 28 62 |y) nil t|)))]).(b|
|00001b60| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 c3 23 88 |yte-code| "....#.|
|00001b70| c4 c5 21 ab 8a c6 c7 4d | 88 c0 c1 c5 c6 23 88 c4 |..!....M|.....#..|
|00001b80| c8 21 ab 8a c9 ca 4d 88 | c0 c1 c8 c9 23 88 c0 87 |.!....M.|....#...|
|00001b90| 22 20 5b 65 66 73 2d 6f | 76 65 72 77 72 69 74 65 |" [efs-o|verwrite|
|00001ba0| 2d 66 6e 20 22 64 65 66 | 61 75 6c 74 2d 64 69 72 |-fn "def|ault-dir|
|00001bb0| 22 20 76 69 65 77 2d 66 | 69 6c 65 20 64 65 66 61 |" view-f|ile defa|
|00001bc0| 75 6c 74 2d 64 69 72 2d | 76 69 65 77 2d 66 69 6c |ult-dir-|view-fil|
|00001bd0| 65 20 66 62 6f 75 6e 64 | 70 20 76 69 65 77 2d 66 |e fbound|p view-f|
|00001be0| 69 6c 65 2d 6f 74 68 65 | 72 2d 77 69 6e 64 6f 77 |ile-othe|r-window|
|00001bf0| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 2d 76 69 65 | default|-dir-vie|
|00001c00| 77 2d 66 69 6c 65 2d 6f | 74 68 65 72 2d 77 69 6e |w-file-o|ther-win|
|00001c10| 64 6f 77 20 23 5b 28 66 | 69 6c 65 29 20 22 c0 09 |dow #[(f|ile) "..|
|00001c20| 21 87 22 20 5b 64 65 66 | 61 75 6c 74 2d 64 69 72 |!." [def|ault-dir|
|00001c30| 2d 72 65 61 6c 2d 76 69 | 65 77 2d 66 69 6c 65 2d |-real-vi|ew-file-|
|00001c40| 6f 74 68 65 72 2d 77 69 | 6e 64 6f 77 20 66 69 6c |other-wi|ndow fil|
|00001c50| 65 5d 20 32 20 22 44 6f | 63 75 6d 65 6e 74 65 64 |e] 2 "Do|cumented|
|00001c60| 20 61 73 20 6f 72 69 67 | 69 6e 61 6c 22 20 28 6c | as orig|inal" (l|
|00001c70| 69 73 74 20 28 65 78 70 | 61 6e 64 2d 66 69 6c 65 |ist (exp|and-file|
|00001c80| 2d 6e 61 6d 65 20 28 72 | 65 61 64 2d 66 69 6c 65 |-name (r|ead-file|
|00001c90| 2d 6e 61 6d 65 20 22 56 | 69 65 77 20 66 69 6c 65 |-name "V|iew file|
|00001ca0| 20 69 6e 20 6f 74 68 65 | 72 20 77 69 6e 64 6f 77 | in othe|r window|
|00001cb0| 3a 20 22 20 28 64 65 66 | 61 75 6c 74 2d 64 69 72 |: " (def|ault-dir|
|00001cc0| 65 63 74 6f 72 79 29 20 | 6e 69 6c 20 74 29 29 29 |ectory) |nil t)))|
|00001cd0| 5d 20 76 69 65 77 2d 66 | 69 6c 65 2d 6f 74 68 65 |] view-f|ile-othe|
|00001ce0| 72 2d 66 72 61 6d 65 20 | 64 65 66 61 75 6c 74 2d |r-frame |default-|
|00001cf0| 64 69 72 2d 76 69 65 77 | 2d 66 69 6c 65 2d 6f 74 |dir-view|-file-ot|
|00001d00| 68 65 72 2d 66 72 61 6d | 65 20 23 5b 28 66 69 6c |her-fram|e #[(fil|
|00001d10| 65 29 20 22 c0 09 21 87 | 22 20 5b 64 65 66 61 75 |e) "..!.|" [defau|
|00001d20| 6c 74 2d 64 69 72 2d 72 | 65 61 6c 2d 76 69 65 77 |lt-dir-r|eal-view|
|00001d30| 2d 66 69 6c 65 2d 6f 74 | 68 65 72 2d 66 72 61 6d |-file-ot|her-fram|
|00001d40| 65 20 66 69 6c 65 5d 20 | 32 20 22 44 6f 63 75 6d |e file] |2 "Docum|
|00001d50| 65 6e 74 65 64 20 61 73 | 20 6f 72 69 67 69 6e 61 |ented as| origina|
|00001d60| 6c 22 20 28 6c 69 73 74 | 20 28 65 78 70 61 6e 64 |l" (list| (expand|
|00001d70| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 28 72 65 61 64 |-file-na|me (read|
|00001d80| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 56 69 65 77 |-file-na|me "View|
|00001d90| 20 66 69 6c 65 20 69 6e | 20 6f 74 68 65 72 20 66 | file in| other f|
|00001da0| 72 61 6d 65 3a 20 22 20 | 28 64 65 66 61 75 6c 74 |rame: " |(default|
|00001db0| 2d 64 69 72 65 63 74 6f | 72 79 29 20 6e 69 6c 20 |-directo|ry) nil |
|00001dc0| 74 29 29 29 5d 5d 20 34 | 29 0a 23 40 32 34 20 44 |t)))]] 4|).#@24 D|
|00001dd0| 6f 63 75 6d 65 6e 74 65 | 64 20 61 73 20 6f 72 69 |ocumente|d as ori|
|00001de0| 67 69 6e 61 6c 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ginal..(|defalias|
|00001df0| 20 27 64 65 66 61 75 6c | 74 2d 64 69 72 2d 73 68 | 'defaul|t-dir-sh|
|00001e00| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 20 23 5b 28 63 |ell-comm|and #[(c|
|00001e10| 6f 6d 6d 61 6e 64 20 26 | 6f 70 74 69 6f 6e 61 6c |ommand &|optional|
|00001e20| 20 6f 75 74 70 75 74 2d | 62 75 66 66 65 72 29 20 | output-|buffer) |
|00001e30| 22 c0 c1 20 21 19 c2 0b | 0c 5c 22 29 87 22 20 5b |".. !...|.\")." [|
|00001e40| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00001e50| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f | default|-directo|
|00001e60| 72 79 20 64 65 66 61 75 | 6c 74 2d 64 69 72 2d 72 |ry defau|lt-dir-r|
|00001e70| 65 61 6c 2d 73 68 65 6c | 6c 2d 63 6f 6d 6d 61 6e |eal-shel|l-comman|
|00001e80| 64 20 63 6f 6d 6d 61 6e | 64 20 6f 75 74 70 75 74 |d comman|d output|
|00001e90| 2d 62 75 66 66 65 72 5d | 20 33 20 28 23 24 20 2e |-buffer]| 3 (#$ .|
|00001ea0| 20 37 36 33 31 29 20 28 | 6c 69 73 74 20 28 6c 65 | 7631) (|list (le|
|00001eb0| 74 20 28 28 70 72 6f 6d | 70 74 20 28 66 6f 72 6d |t ((prom|pt (form|
|00001ec0| 61 74 20 22 53 68 65 6c | 6c 20 63 6f 6d 6d 61 6e |at "Shel|l comman|
|00001ed0| 64 20 69 6e 20 25 73 3a | 20 22 20 28 64 65 66 61 |d in %s:| " (defa|
|00001ee0| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 29 29 29 |ult-dire|ctory)))|
|00001ef0| 29 20 28 63 6f 6e 64 20 | 28 28 65 71 20 64 65 66 |) (cond |((eq def|
|00001f00| 61 75 6c 74 2d 64 69 72 | 2d 65 6d 61 63 73 2d 76 |ault-dir|-emacs-v|
|00001f10| 61 72 69 61 6e 74 20 27 | 78 65 6d 61 63 73 29 20 |ariant '|xemacs) |
|00001f20| 28 72 65 61 64 2d 73 68 | 65 6c 6c 2d 63 6f 6d 6d |(read-sh|ell-comm|
|00001f30| 61 6e 64 20 22 53 68 65 | 6c 6c 20 63 6f 6d 6d 61 |and "She|ll comma|
|00001f40| 6e 64 3a 20 22 29 29 20 | 28 28 65 71 20 64 65 66 |nd: ")) |((eq def|
|00001f50| 61 75 6c 74 2d 64 69 72 | 2d 65 6d 61 63 73 2d 76 |ault-dir|-emacs-v|
|00001f60| 61 72 69 61 6e 74 20 27 | 66 73 66 2d 31 39 29 20 |ariant '|fsf-19) |
|00001f70| 28 72 65 61 64 2d 66 72 | 6f 6d 2d 6d 69 6e 69 62 |(read-fr|om-minib|
|00001f80| 75 66 66 65 72 20 70 72 | 6f 6d 70 74 20 6e 69 6c |uffer pr|ompt nil|
|00001f90| 20 6e 69 6c 20 6e 69 6c | 20 27 73 68 65 6c 6c 2d | nil nil| 'shell-|
|00001fa0| 63 6f 6d 6d 61 6e 64 2d | 68 69 73 74 6f 72 79 29 |command-|history)|
|00001fb0| 29 20 28 28 66 65 61 74 | 75 72 65 70 20 27 67 6d |) ((feat|urep 'gm|
|00001fc0| 68 69 73 74 29 20 28 6c | 65 74 20 28 28 6d 69 6e |hist) (l|et ((min|
|00001fd0| 69 62 75 66 66 65 72 2d | 68 69 73 74 6f 72 79 2d |ibuffer-|history-|
|00001fe0| 73 79 6d 62 6f 6c 20 27 | 73 68 65 6c 6c 2d 63 6f |symbol '|shell-co|
|00001ff0| 6d 6d 61 6e 64 2d 68 69 | 73 74 6f 72 79 29 29 20 |mmand-hi|story)) |
|00002000| 28 72 65 61 64 2d 73 74 | 72 69 6e 67 20 70 72 6f |(read-st|ring pro|
|00002010| 6d 70 74 29 29 29 20 28 | 74 20 28 72 65 61 64 2d |mpt))) (|t (read-|
|00002020| 73 74 72 69 6e 67 20 70 | 72 6f 6d 70 74 29 29 29 |string p|rompt)))|
|00002030| 29 20 63 75 72 72 65 6e | 74 2d 70 72 65 66 69 78 |) curren|t-prefix|
|00002040| 2d 61 72 67 29 5d 29 0a | 28 65 66 73 2d 6f 76 65 |-arg)]).|(efs-ove|
|00002050| 72 77 72 69 74 65 2d 66 | 6e 20 22 64 65 66 61 75 |rwrite-f|n "defau|
|00002060| 6c 74 2d 64 69 72 22 20 | 27 73 68 65 6c 6c 2d 63 |lt-dir" |'shell-c|
|00002070| 6f 6d 6d 61 6e 64 20 27 | 64 65 66 61 75 6c 74 2d |ommand '|default-|
|00002080| 64 69 72 2d 73 68 65 6c | 6c 2d 63 6f 6d 6d 61 6e |dir-shel|l-comman|
|00002090| 64 29 0a 23 40 32 34 20 | 44 6f 63 75 6d 65 6e 74 |d).#@24 |Document|
|000020a0| 65 64 20 61 73 20 6f 72 | 69 67 69 6e 61 6c 1f 0a |ed as or|iginal..|
|000020b0| 28 64 65 66 61 6c 69 61 | 73 20 27 64 65 66 61 75 |(defalia|s 'defau|
|000020c0| 6c 74 2d 64 69 72 2d 63 | 64 20 23 5b 28 64 69 72 |lt-dir-c|d #[(dir|
|000020d0| 29 20 22 c0 09 21 87 22 | 20 5b 64 65 66 61 75 6c |) "..!."| [defaul|
|000020e0| 74 2d 64 69 72 2d 72 65 | 61 6c 2d 63 64 20 64 69 |t-dir-re|al-cd di|
|000020f0| 72 5d 20 32 20 28 23 24 | 20 2e 20 38 33 34 34 29 |r] 2 (#$| . 8344)|
|00002100| 20 28 6c 69 73 74 20 28 | 65 78 70 61 6e 64 2d 66 | (list (|expand-f|
|00002110| 69 6c 65 2d 6e 61 6d 65 | 20 28 72 65 61 64 2d 66 |ile-name| (read-f|
|00002120| 69 6c 65 2d 6e 61 6d 65 | 20 22 43 68 61 6e 67 65 |ile-name| "Change|
|00002130| 20 64 65 66 61 75 6c 74 | 20 64 69 72 65 63 74 6f | default| directo|
|00002140| 72 79 3a 20 22 20 28 64 | 65 66 61 75 6c 74 2d 64 |ry: " (d|efault-d|
|00002150| 69 72 65 63 74 6f 72 79 | 29 29 29 29 5d 29 0a 28 |irectory|))))]).(|
|00002160| 65 66 73 2d 6f 76 65 72 | 77 72 69 74 65 2d 66 6e |efs-over|write-fn|
|00002170| 20 22 64 65 66 61 75 6c | 74 2d 64 69 72 22 20 27 | "defaul|t-dir" '|
|00002180| 63 64 20 27 64 65 66 61 | 75 6c 74 2d 64 69 72 2d |cd 'defa|ult-dir-|
|00002190| 63 64 29 0a 23 40 32 34 | 20 44 6f 63 75 6d 65 6e |cd).#@24| Documen|
|000021a0| 74 65 64 20 61 73 20 6f | 72 69 67 69 6e 61 6c 1f |ted as o|riginal.|
|000021b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 66 61 |.(defali|as 'defa|
|000021c0| 75 6c 74 2d 64 69 72 2d | 73 65 74 2d 76 69 73 69 |ult-dir-|set-visi|
|000021d0| 74 65 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 23 5b |ted-file|-name #[|
|000021e0| 28 66 69 6c 65 6e 61 6d | 65 29 20 22 c0 09 21 87 |(filenam|e) "..!.|
|000021f0| 22 20 5b 64 65 66 61 75 | 6c 74 2d 64 69 72 2d 72 |" [defau|lt-dir-r|
|00002200| 65 61 6c 2d 73 65 74 2d | 76 69 73 69 74 65 64 2d |eal-set-|visited-|
|00002210| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 6e 61 |file-nam|e filena|
|00002220| 6d 65 5d 20 32 20 28 23 | 24 20 2e 20 38 36 30 31 |me] 2 (#|$ . 8601|
|00002230| 29 20 28 6c 69 73 74 20 | 28 65 78 70 61 6e 64 2d |) (list |(expand-|
|00002240| 66 69 6c 65 2d 6e 61 6d | 65 20 28 72 65 61 64 2d |file-nam|e (read-|
|00002250| 66 69 6c 65 2d 6e 61 6d | 65 20 22 53 65 74 20 76 |file-nam|e "Set v|
|00002260| 69 73 69 74 65 64 20 66 | 69 6c 65 20 6e 61 6d 65 |isited f|ile name|
|00002270| 3a 20 22 20 28 64 65 66 | 61 75 6c 74 2d 64 69 72 |: " (def|ault-dir|
|00002280| 65 63 74 6f 72 79 29 29 | 29 29 5d 29 0a 28 65 66 |ectory))|))]).(ef|
|00002290| 73 2d 6f 76 65 72 77 72 | 69 74 65 2d 66 6e 20 22 |s-overwr|ite-fn "|
|000022a0| 64 65 66 61 75 6c 74 2d | 64 69 72 22 20 27 73 65 |default-|dir" 'se|
|000022b0| 74 2d 76 69 73 69 74 65 | 64 2d 66 69 6c 65 2d 6e |t-visite|d-file-n|
|000022c0| 61 6d 65 20 27 64 65 66 | 61 75 6c 74 2d 64 69 72 |ame 'def|ault-dir|
|000022d0| 2d 73 65 74 2d 76 69 73 | 69 74 65 64 2d 66 69 6c |-set-vis|ited-fil|
|000022e0| 65 2d 6e 61 6d 65 29 0a | 23 40 32 34 20 44 6f 63 |e-name).|#@24 Doc|
|000022f0| 75 6d 65 6e 74 65 64 20 | 61 73 20 6f 72 69 67 69 |umented |as origi|
|00002300| 6e 61 6c 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nal..(de|falias '|
|00002310| 64 65 66 61 75 6c 74 2d | 64 69 72 2d 69 6e 73 65 |default-|dir-inse|
|00002320| 72 74 2d 66 69 6c 65 20 | 23 5b 28 66 69 6c 65 6e |rt-file |#[(filen|
|00002330| 61 6d 65 20 26 72 65 73 | 74 20 61 72 67 73 29 20 |ame &res|t args) |
|00002340| 22 c0 c1 5c 6e 0b 23 87 | 22 20 5b 61 70 70 6c 79 |"..\n.#.|" [apply|
|00002350| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 2d 72 65 61 | default|-dir-rea|
|00002360| 6c 2d 69 6e 73 65 72 74 | 2d 66 69 6c 65 20 66 69 |l-insert|-file fi|
|00002370| 6c 65 6e 61 6d 65 20 61 | 72 67 73 5d 20 34 20 28 |lename a|rgs] 4 (|
|00002380| 23 24 20 2e 20 38 39 34 | 31 29 20 28 6c 69 73 74 |#$ . 894|1) (list|
|00002390| 20 28 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 | (expand|-file-na|
|000023a0| 6d 65 20 28 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |me (read|-file-na|
|000023b0| 6d 65 20 22 49 6e 73 65 | 72 74 20 66 69 6c 65 3a |me "Inse|rt file:|
|000023c0| 20 22 20 28 64 65 66 61 | 75 6c 74 2d 64 69 72 65 | " (defa|ult-dire|
|000023d0| 63 74 6f 72 79 29 20 6e | 69 6c 20 74 29 29 29 5d |ctory) n|il t)))]|
|000023e0| 29 0a 28 65 66 73 2d 6f | 76 65 72 77 72 69 74 65 |).(efs-o|verwrite|
|000023f0| 2d 66 6e 20 22 64 65 66 | 61 75 6c 74 2d 64 69 72 |-fn "def|ault-dir|
|00002400| 22 20 27 69 6e 73 65 72 | 74 2d 66 69 6c 65 20 27 |" 'inser|t-file '|
|00002410| 64 65 66 61 75 6c 74 2d | 64 69 72 2d 69 6e 73 65 |default-|dir-inse|
|00002420| 72 74 2d 66 69 6c 65 29 | 0a 23 40 32 34 20 44 6f |rt-file)|.#@24 Do|
|00002430| 63 75 6d 65 6e 74 65 64 | 20 61 73 20 6f 72 69 67 |cumented| as orig|
|00002440| 69 6e 61 6c 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |inal..(d|efalias |
|00002450| 27 64 65 66 61 75 6c 74 | 2d 64 69 72 2d 61 70 70 |'default|-dir-app|
|00002460| 65 6e 64 2d 74 6f 2d 66 | 69 6c 65 20 23 5b 28 73 |end-to-f|ile #[(s|
|00002470| 74 61 72 74 20 65 6e 64 | 20 66 69 6c 65 6e 61 6d |tart end| filenam|
|00002480| 65 20 26 72 65 73 74 20 | 61 72 67 73 29 20 22 c0 |e &rest |args) ".|
|00002490| c1 5c 6e 0b 0c 0d 25 87 | 22 20 5b 61 70 70 6c 79 |.\n...%.|" [apply|
|000024a0| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 2d 72 65 61 | default|-dir-rea|
|000024b0| 6c 2d 61 70 70 65 6e 64 | 2d 74 6f 2d 66 69 6c 65 |l-append|-to-file|
|000024c0| 20 73 74 61 72 74 20 65 | 6e 64 20 66 69 6c 65 6e | start e|nd filen|
|000024d0| 61 6d 65 20 61 72 67 73 | 5d 20 36 20 28 23 24 20 |ame args|] 6 (#$ |
|000024e0| 2e 20 39 32 36 32 29 20 | 28 62 79 74 65 2d 63 6f |. 9262) |(byte-co|
|000024f0| 64 65 20 22 c0 20 ac 84 | c1 c2 21 88 c0 20 60 5e |de ". ..|..!.. `^|
|00002500| c0 20 60 5d c3 c4 c5 c6 | 20 5c 22 21 45 87 22 20 |. `]....| \"!E." |
|00002510| 5b 6d 61 72 6b 20 65 72 | 72 6f 72 20 22 54 68 65 |[mark er|ror "The|
|00002520| 20 6d 61 72 6b 20 69 73 | 20 6e 6f 74 20 73 65 74 | mark is| not set|
|00002530| 20 6e 6f 77 22 20 65 78 | 70 61 6e 64 2d 66 69 6c | now" ex|pand-fil|
|00002540| 65 2d 6e 61 6d 65 20 72 | 65 61 64 2d 66 69 6c 65 |e-name r|ead-file|
|00002550| 2d 6e 61 6d 65 20 22 41 | 70 70 65 6e 64 20 74 6f |-name "A|ppend to|
|00002560| 20 66 69 6c 65 3a 20 22 | 20 64 65 66 61 75 6c 74 | file: "| default|
|00002570| 2d 64 69 72 65 63 74 6f | 72 79 5d 20 36 29 5d 29 |-directo|ry] 6)])|
|00002580| 0a 28 65 66 73 2d 6f 76 | 65 72 77 72 69 74 65 2d |.(efs-ov|erwrite-|
|00002590| 66 6e 20 22 64 65 66 61 | 75 6c 74 2d 64 69 72 22 |fn "defa|ult-dir"|
|000025a0| 20 27 61 70 70 65 6e 64 | 2d 74 6f 2d 66 69 6c 65 | 'append|-to-file|
|000025b0| 20 27 64 65 66 61 75 6c | 74 2d 64 69 72 2d 61 70 | 'defaul|t-dir-ap|
|000025c0| 70 65 6e 64 2d 74 6f 2d | 66 69 6c 65 29 0a 23 40 |pend-to-|file).#@|
|000025d0| 32 34 20 44 6f 63 75 6d | 65 6e 74 65 64 20 61 73 |24 Docum|ented as|
|000025e0| 20 6f 72 69 67 69 6e 61 | 6c 1f 0a 28 64 65 66 61 | origina|l..(defa|
|000025f0| 6c 69 61 73 20 27 64 65 | 66 61 75 6c 74 2d 64 69 |lias 'de|fault-di|
|00002600| 72 2d 64 65 6c 65 74 65 | 2d 66 69 6c 65 20 23 5b |r-delete|-file #[|
|00002610| 28 66 69 6c 65 29 20 22 | c0 09 21 87 22 20 5b 64 |(file) "|..!." [d|
|00002620| 65 66 61 75 6c 74 2d 64 | 69 72 2d 72 65 61 6c 2d |efault-d|ir-real-|
|00002630| 64 65 6c 65 74 65 2d 66 | 69 6c 65 20 66 69 6c 65 |delete-f|ile file|
|00002640| 5d 20 32 20 28 23 24 20 | 2e 20 39 36 38 33 29 20 |] 2 (#$ |. 9683) |
|00002650| 28 6c 69 73 74 20 28 65 | 78 70 61 6e 64 2d 66 69 |(list (e|xpand-fi|
|00002660| 6c 65 2d 6e 61 6d 65 20 | 28 72 65 61 64 2d 66 69 |le-name |(read-fi|
|00002670| 6c 65 2d 6e 61 6d 65 20 | 22 44 65 6c 65 74 65 20 |le-name |"Delete |
|00002680| 66 69 6c 65 3a 20 22 20 | 28 64 65 66 61 75 6c 74 |file: " |(default|
|00002690| 2d 64 69 72 65 63 74 6f | 72 79 29 20 6e 69 6c 20 |-directo|ry) nil |
|000026a0| 74 29 29 29 5d 29 0a 28 | 65 66 73 2d 6f 76 65 72 |t)))]).(|efs-over|
|000026b0| 77 72 69 74 65 2d 66 6e | 20 22 64 65 66 61 75 6c |write-fn| "defaul|
|000026c0| 74 2d 64 69 72 22 20 27 | 64 65 6c 65 74 65 2d 66 |t-dir" '|delete-f|
|000026d0| 69 6c 65 20 27 64 65 66 | 61 75 6c 74 2d 64 69 72 |ile 'def|ault-dir|
|000026e0| 2d 64 65 6c 65 74 65 2d | 66 69 6c 65 29 0a |-delete-|file). |
+--------+-------------------------+-------------------------+--------+--------+
